home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.12 Dec 86.sit / 02.12 Dec 86 / basic Sources / ZBasic / ZPrinting.BAS next >
Encoding:
BASIC Source File  |  1986-10-23  |  2.0 KB  |  87 lines  |  [TEXT/ZBAS]
  1. REM ZBasic PrintDemo
  2. REM By Dave Kelly
  3. REM ©1986 by MacTutor
  4. WINDOW OFF
  5. WINDOW #1,"ZBasic printing",(50,50)-(450,300),3
  6. W1=WINDOW(2)-1:W2=WINDOW(3)-1
  7. DEFDBL INT P:DEF TAB 32
  8. MENU 1,0,1,"File"
  9. MENU 1,1,0,"Print to screen"
  10. MENU 1,2,1,"Print to printer"
  11. MENU 1,3,1,"Page Setup"
  12. MENU 1,4,1,"Job Setup"
  13. MENU 1,5,0,"-"
  14. MENU 1,6,1,"Clear Screen"
  15. MENU 1,7,1,"Quit"
  16. ON DIALOG GOSUB "Dialogselection"
  17. DIALOG ON
  18. ON MENU GOSUB "Menuselection"
  19. MENU ON
  20. "Loop":
  21. GOTO "Loop"
  22. "Dialogselection":
  23. THEEVENT=DIALOG(0)
  24. IF THEEVENT<>5 THEN RETURN
  25. RETURN
  26. "Menuselection":
  27. MENUNUMBER=MENU(0)
  28. MENUITEM=MENU(1)
  29. MENU OFF:MENU:DIALOG OFF
  30. ON MENUITEM GOSUB "Printscr","Printptr","Page","Job","dummy","Clrscr","Quit"
  31. MENU ON:DIALOG OFF
  32. RETURN
  33. "dummy":
  34. RETURN
  35. "Clrscr":
  36. WINDOW PICTURE #1,0
  37. CLS:RETURN
  38. "Printscr":
  39. COORDINATE WINDOW
  40. ROUTE 0
  41. PICTURE ON  
  42. GOSUB "Your print routine"
  43. PRINT@(X,19) "Parameters printed to screen may be in error."
  44. BOX 0,0 TO W1,W2
  45. PICTURE OFF, Pic&
  46. PICTURE,Pic&
  47. WINDOW PICTURE #1,Pic&
  48. RETURN
  49. "Printptr":
  50. DEF LPRINT:CLS
  51. IF PRCANCEL<>0 THEN RETURN
  52. P=PEEK LONG(PRHANDLE)
  53. COORDINATE PEEK WORD(P+28),PEEK WORD(P+26)
  54. ROUTE 128
  55. GOSUB "Your print routine"
  56. BOX 0,0 TO PEEK WORD (P+28)-1,PEEK WORD(P+26)-1
  57. CLEAR LPRINT
  58. ROUTE 0
  59. MENU 1,1,1
  60. RETURN
  61. "Job":
  62. DEF LPRINT
  63. MENU 1,1,1
  64. RETURN
  65. "Page":
  66. DEF PAGE
  67. MENU 1,1,1
  68. RETURN
  69. "Your print routine":
  70. X=5
  71. PRINT@(X,5) "Print Manager version",PEEK WORD(P)
  72. PRINT@(X,6) "Driver Info (What's that?)",PEEK WORD(P+2)
  73. PRINT@(X,7) "Vertical resolution",PEEK WORD(P+4)
  74. PRINT@(X,8) "Horizontal resolution",PEEK WORD(P+6)
  75. PRINT@(X,9) "Page Rectangle",PEEK WORD(P+8);PEEK WORD(P+10);PEEK WORD(P+12);PEEK WORD(P+14)
  76. PRINT@(X,10) "Paper Rectangle",PEEK WORD(P+16);PEEK WORD(P+18);PEEK WORD(P+20);PEEK WORD(P+22)
  77. PRINT@(X,11) "Paper height,width",PEEK WORD(P+26);",";PEEK WORD (P+28)
  78. PRINT@(X,12) "Printer port  (ERROR!)",PEEK WORD(P+30)
  79. PRINT@(X,13) "Printer type  (ERROR!)",PEEK WORD (P+32)
  80. PRINT@(X,14) "First page",PEEK WORD(P+62)
  81. PRINT@(X,15) "Last page",PEEK WORD(P+64)
  82. PRINT@(X,16) "# of copies..",PEEK WORD(P+66)
  83. RETURN
  84. "Quit":
  85. KILL PICTURE Pic&
  86. END
  87.